perm filename LOSS.1[MAC,LSP] blob sn#744285 filedate 1984-02-23 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(fasload struct)
C00004 ENDMK
CāŠ—;
(fasload struct)

(DEFSTRUCT (PBE (TYPE LIST))
	   NAME ADDRESS
	   ((AC #O3012 617.)(EX #O1612)(LN #O0016)))


(SETQ Q (MAKE-PBE))

(AC Q)
(EX Q)
(LN Q)

(SETF (AC Q) 617)
(SETF (EX Q) 617)

(SETQ BASE 10. IBASE 10.)
(ALTER-PBE Q AC 203.)